home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2001 May / SGI IRIX Base Documentation 2001 May.iso / usr / share / catman / p_man / cat3 / f90 / asnctl.z / asnctl
Encoding:
Text File  |  1998-10-30  |  4.7 KB  |  85 lines
  1. ASNCTL(3F)                                            Last changed: 1-30-98
  2.  
  3.  
  4. NNAAMMEE
  5.      AASSNNCCTTLL - Controls function of AASSSSIIGGNN, AASSNNFFIILLEE, AASSNNUUNNIITT, and AASSNNRRMM
  6.      routines
  7.  
  8. SSYYNNOOPPSSIISS
  9.      CCAALLLL AASSNNCCTTLL((_o_p_t_i_o_n,, _v_a_l_u_e,, _i_e_r))
  10.  
  11. IIMMPPLLEEMMEENNTTAATTIIOONN
  12.      UNICOS, UNICOS/mk, and IRIX systems
  13.  
  14. DDEESSCCRRIIPPTTIIOONN
  15.      This routine is supported on IRIX systems for programs compiled with
  16.      the MIPSpro 7 Fortran 90 compiler or compiled with the --ccrraayylliibbss
  17.      option to the MIPSpro 7.2 F77 compiler.
  18.  
  19.      The ''LLOOCCAALL'' and ''NNEEWWLLOOCCAALL'' modes are useful for any utility written in
  20.      Fortran when you want to use AASSSSIIGGNN(3F) but do not want to access the
  21.      aassssiiggnn environment file set up by the user.
  22.  
  23.      When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
  24.      UNICOS, UNICOS/mk, or IRIX, all arguments must be of default kind
  25.      unless documented otherwise.  On UNICOS and UNICOS/mk, default kind is
  26.      KKIINNDD==88 for integer, real, complex, and logical arguments; on IRIX, the
  27.      default kind is KKIINNDD==44.
  28.  
  29.      The following is a list of valid arguments for this routine.
  30.  
  31.      _o_p_t_i_o_n    A Fortran character variable containing either of the
  32.                following values:
  33.  
  34.                ''LLOOCCAALL''      Causes AASSNNCCTTLL to establish a local aassssiiggnn
  35.                             environment.  The old aassssiiggnn environment is
  36.                             copied into the newly created local aassssiiggnn
  37.                             environment.  Subsequent calls to AASSSSIIGGNN,
  38.                             AASSNNUUNNIITT, AASSNNFFIILLEE, and AASSNNRRMM (see AASSSSIIGGNN(3F))
  39.                             affect only the newly created local aassssiiggnn
  40.                             environment.  Any future Fortran OOPPEENN requests
  41.                             will also read from the local aassssiiggnn
  42.                             environment initiated by this call to AASSNNCCTTLL.
  43.                             The user must set _v_a_l_u_e to 1 when calling
  44.                             AASSNNCCTTLL with _o_p_t_i_o_n=''LLOOCCAALL''.
  45.  
  46.                ''NNEEWWLLOOCCAALL''   Causes AASSNNCCTTLL to establish an empty local
  47.                             aassssiiggnn environment.  Subsequent calls to
  48.                             AASSSSIIGGNN, AASSNNUUNNIITT, AASSNNFFIILLEE, and AASSNNRRMM (see
  49.                             AASSSSIIGGNN(3F)) affect the newly created local
  50.                             aassssiiggnn environment.  Any future Fortran OOPPEENN
  51.                             requests will also read from the local aassssiiggnn
  52.                             environment initiated by this call to AASSNNCCTTLL.
  53.                             The user must set _v_a_l_u_e to 1 when calling
  54.                             AASSNNCCTTLL with _o_p_t_i_o_n=''NNEEWWLLOOCCAALL''.
  55.  
  56.                ''RREESSTTOORREE''    Restores the aassssiiggnn environment that was active
  57.                             before the preceding ''LLOOCCAALL'' or ''NNEEWWLLOOCCAALL''
  58.                             request.  Sets _v_a_l_u_e to 1 when calling AASSNNCCTTLL
  59.                             with _o_p_t_i_o_n=''RREESSTTOORREE''..
  60.  
  61.      _v_a_l_u_e     Integer variable, constant, or array element containing the
  62.                option value.
  63.  
  64.      _i_e_r       Integer variable or array element that is assigned the error
  65.                status on return.  Zero (0) is usually returned, indicating
  66.                no errors were encountered; otherwise, a positive error
  67.                status is returned.
  68.  
  69.  
  70. EEXXAAMMPPLLEESS
  71.      The writer of the following Fortran program wants to disregard any
  72.      aassssiiggnn information provided by the user.  However, the program
  73.      requires sequential unformatted I/O on unit 11 with an unblocked file
  74.      structure.  This is accomplished by the following:
  75.  
  76. CALL ASNCTL('NEWLOCAL',1,ier)       ! start local assign environment
  77. CALL ASNUNIT(11,'-s unblocked',ier) ! assign the "unblocked" file structure
  78. OPEN(11,form='unformatted')         ! open unit 11
  79.  
  80. SSEEEE AALLSSOO
  81.      AASSSSIIGGNN(3F)
  82.  
  83.      _A_p_p_l_i_c_a_t_i_o_n _P_r_o_g_r_a_m_m_e_r'_s _L_i_b_r_a_r_y _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, publication
  84.      SR-2165, for the printed version of this man page.
  85.